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DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE], 

ControlDefs: FROM "controldef s" USING [globalbase, localbase], 

Mopcodes: FROM "mopcodes" USING [zEFCO, zJ2, zJEQ2, zJNE2, zLFCl, zLGO, zLIO, zLLO, zRO, zRILO, zSGO. 
** zSLO, zWO]; 

DEFINITIONS FROM Mopcodes; 

OpCodeParams: DEFINITIONS ■ 
BEGIN 

BYTE: TYPE » AltoDefs .BYTE ; 

GlobalBase: CARDINAL « ControlDefs .globalbase; 
GlobalHB: TYPE - [GlobalBase. .GlobalBase+16) ; 
GlobalLoadSlots: TYPE = [GlobalBase. .GlobalBase+8) ; 
GlobalStoreSlots: TYPE » [GlobalBase. .GlobalBase+4) ; 

LocalBase: CARDINAL = ControlDefs . localbase; 
LocalHB: TYPE » [LocalBase. .LocalBase+16) ; 
LocalLoadSlots: TYPE = [LocalBase. .LocalBase+8) ; 
LocalStoreSlots: TYPE » [LocalBase. .LocalBase+8) ; 
LocalPutSlots: TYPE = [0..0); 

HB: TYPE « [0..16); 
LoadlmmediateSlots: TYPE » [0..7); 
ReadSlots: TYPE = [0..5); 
WriteSlots: TYPE = [0. .3); 
RILSlots: TYPE « [0. .1); 

ExternalProcBase: CARDINAL =■ 0; 

LocalProcBase: CARDINAL » 1; 

ExternalProcSlots: TYPE = [ExternalProcBase. . ExternalProcBase+16) ; 

LocalProcSlots: TYPE = [Local ProcBase. . LocalProcBase+16) ; 


zRILn 

: BYTE 

- zRILO; 

zEFCn 

: BYTE 

» zEFCO; 

zLFCn 

: BYTE 

« zLFCl; 

zLIn: 

BYTE « 

'■ zLIO; 

zLLn: 

BYTE = 

' zLLO; 

zSLn: 

BYTE « 

' zSLO; 

zLGn: 

BYTE = 

•- zLGO; 

zSGn: 

BYTE » 

•■ zSGO; 

zPLn: BYTE 

: « zPLO; 

zRn: 

BYTE = 

zRO; 

zWn: 

BYTE « 

zWO; 

zJn: 

BYTE = 

zJ2; 

zJEQn 

: BYTE 

» ZJEQ2; 

zJNEn 

: BYTE 

« ZJNE2; 


END.. . 


